home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0767 / winsock.imp < prev    next >
Encoding:
Text File  |  1995-04-13  |  3.5 KB  |  89 lines
  1. { WinSock unit implementation include file. }
  2.  
  3. var
  4.      fdSet : fd_set;
  5.  
  6. function FIONBIO (x, y : integer; t : u_long) : u_long;
  7. begin
  8.      FIONBIO := (IOC_IN OR ((IOCPARM_MASK shl 16) OR (x SHL 8) OR (Y)));
  9. end;
  10.  
  11. function WSAMakeSyncReply;
  12. begin
  13.          WSAMakeSyncReply := MakeLong (Buflen, Error);
  14. end;
  15.  
  16. function WSAMakeSelectReply;
  17. begin
  18.          WSAMakeSelectReply := MakeLong (Event, Error);
  19. end;
  20.  
  21. function WSAGetAsyncBuflen;
  22. begin
  23.          WSAGetAsyncBuflen := LOWORD(Param);
  24. end;
  25.  
  26. function WSAGetAsyncError;
  27. begin
  28.      WSAGetAsyncError := HIWORD(Param);
  29. end;
  30.  
  31. function WSAGetSelectEvent;
  32. begin
  33.          WSAGetSelectEvent := LOWORD(Param);
  34. end;
  35.  
  36. function WSAGetSelectError;
  37. begin
  38.          WSAGetSelectError := HIWORD(Param);
  39. end;
  40.  
  41. function accept;            external    'WINSOCK' index 1;
  42. function bind;              external    'WINSOCK' index 2;
  43. function closesocket;       external    'WINSOCK' index 3;
  44. function connect;           external    'WINSOCK' index 4;
  45. function getpeername;       external    'WINSOCK' index 5;
  46. function getsockname;       external    'WINSOCK' index 6;
  47. function getsockopt;        external    'WINSOCK' index 7;
  48. function htonl;             external    'WINSOCK' index 8;
  49. function htons;             external    'WINSOCK' index 9;
  50. function inet_addr;         external    'WINSOCK' index 10;
  51. function inet_ntoa;         external    'WINSOCK' index 11;
  52. function ioctlsocket;       external    'WINSOCK' index 12;
  53. function listen;            external    'WINSOCK' index 13;
  54. function ntohl;             external    'WINSOCK' index 14;
  55. function ntohs;             external    'WINSOCK' index 15;
  56. function recv;              external    'WINSOCK' index 16;
  57. function recvfrom;          external    'WINSOCK' index 17;
  58. function select;            external    'WINSOCK' index 18;
  59. function send;              external    'WINSOCK' index 19;
  60. function sendto;            external    'WINSOCK' index 20;
  61. function setsockopt;        external    'WINSOCK' index 21;
  62. function shutdown;          external    'WINSOCK' index 22;
  63. function socket;            external    'WINSOCK' index 23;
  64.  
  65. function gethostbyaddr;     external    'WINSOCK' index 51;
  66. function gethostbyname;     external    'WINSOCK' index 52;
  67. function getprotobyname;    external    'WINSOCK' index 53;
  68. function getprotobynumber;  external    'WINSOCK' index 54;
  69. function getservbyname;     external    'WINSOCK' index 55;
  70. function getservbyport;     external    'WINSOCK' index 56;
  71. function gethostname;       external    'WINSOCK' index 57;
  72.  
  73. function WSAAsyncSelect;    external    'WINSOCK' index 101;
  74. function WSAAsyncGetHostByAddr; external 'WINSOCK' index 102;
  75. function WSAAsyncGetHostByName; external 'WINSOCK' index 103;
  76. function WSAAsyncGetProtoByNumber; external 'WINSOCK' index 104;
  77. function WSAAsyncGetprotoByName; external 'WINSOCK' index 105;
  78. function WSAAsyncGetServByPort; external 'WINSOCK' index 106;
  79. function WSAAsyncGetServByName; external 'WINSOCK' index 107;
  80. function WSACancelAsyncRequest; external 'WINSOCK' index 108;
  81. function WSASetBlockingHook; external    'WINSOCK' index 109;
  82. function WSAUnhookBlockingHook; external 'WINSOCK' index 110;
  83. function WSAGetLastError;    external    'WINSOCK' index 111;
  84. procedure WSASetLastError;   external    'WINSOCK' index 112;
  85. function WSACancelBlockingCall; external 'WINSOCK' index 113;
  86. function WSAIsBlocking;     external     'WINSOCK' index 114;
  87. function WSAStartup;        external     'WINSOCK' index 115;
  88. function WSACleanup;        external     'WINSOCK' index 116;
  89.